5 REM COMPAC SCAN/PRINT ROUTINE
10 CLEAR 100,19456
15 CURS=17025
20 INPUT "PAGE (1-34)";P
25 S=P*512+18944
30 M=PEEK(S)
35 IF M<32 THEN M=M+64
40 IF M=128 THEN M=32
45 PRINT CHR$(M);:S=S+1
50 K$=INKEY$:IF K$=""THEN 30
55 C=PEEK(CURS):C=C-32*INT(C/32)
60 IFK$="B"THENB=S-C-480:GOTO30
65 IFK$="E"THENE=S-C-448:GOTO100
70 IF K$="A" THEN S=S+1
75 IF K$="S" THEN S=S-1
80 IF K$="P" THEN 90
85 SOUND 66,1:GOTO 30
90 C=INT((S-18944)/512)
95 PRINT:PRINT"PAGE"C:GOTO 20
100 PRINT:INPUT"PRINTER SET";I$
105 J=0:POKE 16932,118:REM baud
110 FOR I=B TO E-1:M=PEEK(I)
115 IF M<32 THEN M=M+64
120 IF M=128 THEN M=32
125 LPRINT CHR$(M);
130 J=J+1:IF J=32THEN LPRINT:J=0
135 NEXT I:LPRINT:PRINT:PRINT
140 INPUT"RESUME";I$:S=E:GOTO 30
REM JOHN S. CULLINS 07/1984
